American History: Interactive Maps & User's Guide/American History: Interactive Maps & User's Guide.iso/pc/TIMESCPE.dxr/00162.ls

Text File | 2000-01-25 | 10.3 KB | 282 lines

on startMovie
  global gEdgeCheck, gStop, gSplit, gChapter
  case gSplit of
    1, 4:
      set gChapter to 1
    2, 3:
      set gChapter to 13
  end case
  set gEdgeCheck to 0
  set gStop to 0
  set the searchPath to [the pathName & "Xtras"]
end

on initDataGlobals
  global gLogonCount, gGPAttempts, gGP100, gAppAttempted, gMasteryList, gBookMarkUsed, gDataPath, gFileName, gFolderName, gInText, gOutText, gBookMark, gGPPageNumber, gClassList, gClassPointer, gClassTable, gClassNameTable, gClassSelector, gHallOfFameFlag, gRosterID, gRosterTable, gSkillTable, gPassword, gRosterList, gAppUpdateFlag, gDatabaseExists, gTeacherLoggedOn, gTeacherCD, gStudentKey, gStudentList, gStudentTable, gStudentNameTable, gStudentSelector, gInitPath, gFindList, gLogonVisible, gClassFloat, gClassCount, gBullets, gDelimiter, gTeacherFlag
  set gFolderName to "eapinit.ctx"
  set gFileName to "eap.ini"
  if readText(gInitPath) <> 0 then
    return -1
    exit
  end if
  set databaseString to line 1 of gInText
  set gDatabaseExists to integer(databaseString)
  if gTeacherCD = 1 then
    case gDatabaseExists of
      0:
        if the platform contains "Windows" then
          set gDataPath to "A:"
        else
          set gDataPath to floppyName()
        end if
        set floppyfoundflag to verifyFloppy(gDataPath & gDelimiter, 0)
        if floppyfoundflag = 1 then
          set gDataPath to gDataPath & gDelimiter & "EAPScore" & gDelimiter
          set floppyfoundflag to verifyFloppy(gDataPath & "Class" & gDelimiter & "Token", 1)
        end if
      1:
        set gDataPath to line 2 of gInText & "eapscore" & gDelimiter
    end case
    set gFolderName to "Class"
    set gFileName to "Token"
    readText(gDataPath)
    if readText(gDataPath) <> 0 then
      return -2
    end if
    set classToken to EMPTY
    set tokenLine to gInText
    do("set classToken = " & tokenLine)
    set gClassFloat to integer(getAt(classToken, 1))
    set gClassCount to integer(getAt(classToken, 2))
    if gClassCount = 0 then
      set gTeacherFlag to 1
      set gClassNameTable to EMPTY
      InitSections()
      go("IF")
      exit
    end if
  end if
  set gLogonCount to 0
  set gGPAttempts to 0
  set gAppAttempted to 0
  set gGP100 to 0
  set gRosterTable to EMPTY
  set gRosterID to EMPTY
  set gRosterList to EMPTY
  set gClassTable to EMPTY
  set gClassList to EMPTY
  set gStudentKey to EMPTY
  set gClassPointer to 0
  set gStudentSelector to 0
  set gClassSelector to 1
  set the text of member "classWindow" to EMPTY
  set gHallOfFameFlag to "Y"
  set gTeacherLoggedOn to 0
  set gBullets to "ΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇóΓÇó"
  set gBookMark to EMPTY
  set gGPPageNumber to EMPTY
  set gBookMarkUsed to 0
  set the text of member "displayClass" to " "
  set the text of member "displayTeacher" to " "
  set the text of member "messageWindow" to " "
  set the text of member "showStudent" to " "
  set the text of member "classWindow" to " "
  set the text of member "studentWindow" to " "
  set standardFont to the textFont of member "fontHolder"
  set the textFont of member "displayClass" to standardFont
  set the textFont of member "displayTeacher" to standardFont
  set the textFont of member "messageWindow" to standardFont
  set the textFont of member "showStudent" to standardFont
  set the textFont of member "classWindow" to standardFont
  set the textFont of member "studentWindow" to standardFont
  set standardSize to the textSize of member "fontHolder"
  set the textSize of member "displayClass" to standardSize
  set the textSize of member "displayTeacher" to standardSize
  set the textSize of member "messageWindow" to standardSize
  set the textSize of member "showStudent" to standardSize
  set the textSize of member "classWindow" to standardSize
  set the textSize of member "studentWindow" to standardSize
  set the textStyle of member "displayClass" to "plain"
  set the textStyle of member "displayTeacher" to "plain"
  set the textStyle of member "messageWindow" to "plain"
  set the textStyle of member "showStudent" to "plain"
  set the textStyle of member "classWindow" to "plain"
  set the textStyle of member "studentWindow" to "plain"
  set the text of member "displayClass" to EMPTY
  set the text of member "displayTeacher" to EMPTY
  set the text of member "showStudent" to EMPTY
  set the text of member "classWindow" to EMPTY
  set the text of member "studentWindow" to EMPTY
  go("IF")
end

on stopMovie
  set the text of member "classWindow" to EMPTY
end

on playSoundFile SoundFileName
  global PathToStuf, fdelelimiter
  set filePath to PathToStuf & "Sounds:" & SoundFileName
  sound playFile 1, filePath
end

on CleanUpTextHandlers
  global allSpritesList, gComponentsList, gMenusList, gMainMembersList, gDisplayMembersList, gLanguage
  TextTurnOffPuppets()
  TextTurnOnVisibles(allSpritesList)
  set gComponentsList to []
  set gMenusList to []
  set gMainMembersList to []
  set gDisplayMembersList to []
  set gLanguage to "E"
end

on hHotRect vWhichSprite, vWhat, vSubtract, vHeight, vWidth, vPoint
  set the castNum of sprite vWhichSprite to the number of member vWhat
  set the locH of sprite vWhichSprite to the locH of sprite 1 - vSubtract
  set the height of sprite vWhichSprite to vHeight
  set the width of sprite vWhichSprite to vWidth
  set the locV of sprite vWhichSprite to vPoint
end

on hRolCheck vWhichSprite1, vWhichSprite2, vWhichSprite3, vWhichSprite4, vSubtract, vVertical, vRolWhat1, vRolWhat2
  global gEdgeCheck
  if (the mouseH < 55) or (the mouseH > 586) then
    if rollOver(5) then
      set gEdgeCheck to 1
    else
      if rollOver(4) then
        set gEdgeCheck to 2
      end if
    end if
  end if
  if (the mouseH < 55) or (the mouseH > 586) then
    if gEdgeCheck = 1 then
      set the locH of sprite 5 to 9999
    else
      if gEdgeCheck = 2 then
        set the locH of sprite 4 to 9999
      end if
    end if
  end if
  if rollOver(vWhichSprite1) then
    if the castNum of sprite 46 <> the number of member "scrollbar ball.hand" then
      set the castNum of sprite vWhichSprite2 to the number of member vRolWhat1
      set vRolPoint to the locH of sprite 1 - vSubtract
      set the loc of sprite vWhichSprite2 to point(vRolPoint, vVertical)
      set the castNum of sprite vWhichSprite3 to the number of member vRolWhat2
      set the loc of sprite vWhichSprite3 to point(321, 368)
      set the castNum of sprite vWhichSprite4 to the number of member "pixel"
      hFingerCheck(vWhichSprite1, "finger", "finger mask")
    end if
  else
    if sprite vWhichSprite1 within 8 then
      if (rollOver(4) <> 1) and (rollOver(5) <> 1) then
        set the castNum of sprite vWhichSprite3 to the number of member vRolWhat2
        set the loc of sprite vWhichSprite3 to point(321, 368)
        set the castNum of sprite vWhichSprite2 to the number of member "pixel"
      end if
    else
      set the castNum of sprite vWhichSprite3 to the number of member "pixel"
      set the castNum of sprite vWhichSprite2 to the number of member "pixel"
    end if
  end if
end

on hMenuCheck vSprite, vIcon, vChapterA, vChapterB, vChapterC, vChapterD
  if the castNum of sprite vSprite = the number of member vIcon then
    set the castNum of sprite 39 to the number of member "menu"
    set the loc of sprite 39 to point(320, 240)
    set the castNum of sprite 40 to the number of member vChapterA
    set the loc of sprite 40 to point(320, 240)
    set the castNum of sprite 41 to the number of member vChapterB
    set the loc of sprite 41 to point(320, 240)
    set the castNum of sprite 42 to the number of member vChapterC
    set the loc of sprite 42 to point(320, 240)
    set the castNum of sprite 43 to the number of member vChapterD
    set the loc of sprite 43 to point(320, 240)
  end if
end

on hMenuRoll vSprite, vItem1, vItem2, vRect
  if inside(point(the mouseH, the mouseV), vRect) then
    set the castNum of sprite vSprite to the number of member vItem1
  else
    set the castNum of sprite vSprite to the number of member vItem2
  end if
end

on hCheckButtons
  if the castNum of sprite 46 <> the number of member "scrollbar ball.hand" then
    if inside(point(the mouseH, the mouseV), rect(258, 59, 378, 81)) then
      set the castNum of sprite 47 to the number of member "guideTour.green"
      hFingerCheck(47, "finger", "finger mask")
    else
      if inside(point(the mouseH, the mouseV), rect(258, 80, 378, 102)) then
        set the castNum of sprite 47 to the number of member "credit.green"
        hFingerCheck(47, "finger", "finger mask")
      else
        if inside(point(the mouseH, the mouseV), rect(531, 443, 622, 478)) then
          set the castNum of sprite 47 to the number of member "directions.glow"
          hFingerCheck(47, "finger", "finger mask")
        else
          set the castNum of sprite 47 to the number of member "pixel"
        end if
      end if
    end if
  end if
end

on hPositionSet
  if the castNum of sprite 39 = the number of member "pixel" then
    set the constraint of sprite 46 to 7
  end if
  set the locV of sprite 1 to 240
  if the locH of sprite 46 < 85 then
    set the locH of sprite 46 to 85
  end if
  if the locH of sprite 46 > 555 then
    set the locH of sprite 46 to 555
  end if
end

on hScrollCheck
  global gStop
  if (rollOver(46) = 0) and the mouseUp then
    set the castNum of sprite 46 to the number of member "scrollbar ball"
    set gStop to the locH of sprite 46
    cursor(-1)
  end if
  if rollOver(46) then
    if the castNum of sprite 39 <> the number of member "menu" then
      set the castNum of sprite 46 to the number of member "scrollbar ball.hand"
      set gStop to the locH of sprite 46
      cursor(200)
    end if
  end if
  if the castNum of sprite 39 <> the number of member "pixel" then
    set the castNum of sprite 46 to the number of member "scrollbar ball"
    set the locH of sprite 46 to gStop
    set the moveableSprite of sprite 46 to 0
  else
    set the moveableSprite of sprite 46 to 1
  end if
  if the castNum of sprite 39 <> the number of member "pixel" then
    if inside(point(the mouseH, the mouseV), rect(174, 125, 466, 226)) then
      hFingerCheck(39, "finger", "finger mask")
    end if
  end if
end

on hFingerCheck vSprite, vWhich, vWhichMask
  set FingerCursor to [the memberNum of member vWhich, the memberNum of member vWhichMask]
  set the cursor of sprite vSprite to FingerCursor
end

on hChapter
  repeat with i = 1 to 48
    set the castNum of sprite i to the number of member "pixel"
  end repeat
  go("TimescapeCleanUp")
end